* lisp/files.el (hack-local-variables): Fully ignore case for "mode:".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index efacb110d1b336657e3838bc9deabbf61a2232c0..2e06de9fd9830485188416839220450550cf155b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-08-20  Glenn Morris  <rgm@gnu.org>
+
+       * files.el (hack-local-variables): Fully ignore case for "mode:".
+
 2011-08-20  Alan Mackenzie  <acm@muc.de>
 
        Resolve invalid use of a regexp in regexp-opt.

diff --git a/lisp/files.el b/lisp/files.el
index 8c7e63dda149ca28305825b4f9825514d485c7d1..07188e152b3744bb80f0c0c2cdc839ee3641b679 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3154,7 +3154,8 @@ major-mode."
                           (var (let ((read-circle nil))
                                  (read str)))
                           val val2)
-                     (and (eq var 'Mode) (setq var 'mode))
+                     (and (equal (downcase (symbol-name var)) "mode")
+                          (setq var 'mode))
                      ;; Read the variable value.
                      (skip-chars-forward "^:")
                      (forward-char 1)